home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / PAINTING.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  32 lines
  1. 10  ' **********************
  2. 20  ' **     PAINTING     **
  3. 30  ' **********************
  4. 40  '
  5. 50  ' We need lots of stack bytes
  6. 60  CLEAR ,,3000
  7. 70  '
  8. 80  ' Start with a clean slate
  9. 90  SCREEN 2
  10. 100  KEY OFF
  11. 110  GOSUB 260
  12. 120  CLS
  13. 130  '
  14. 140  ' Fill screen with lots of vertical lines
  15. 150  FOR X = 1 TO 640 STEP 2
  16. 160  LINE (X,200*RND)-(X,200*RND)
  17. 170  NEXT X
  18. 180  '
  19. 190  ' Get the paint brush out
  20. 200  PAINT (320,100)
  21. 210  '
  22. 220  ' One more time
  23. 230  RUN
  24. 240  '
  25. 250  ' Subroutine, thoroughly randomize the random numbers
  26. 260  RANDOMIZE VAL(MID$(TIME$,4,2) + RIGHT$(TIME$,2))
  27. 270  TEMP$ = TIME$
  28. 280  WHILE TEMP$ = TIME$
  29. 290  RANDOMIZE 65000 * RND - 32500
  30. 300  WEND
  31. 310  RETURN
  32.